-- card: 29192 from stack: in.2r
-- bmap block id: 0
-- flags: 0000
-- background id: 3837
-- name: MenuBar


-- part 2 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=389 top=274 right=296 bottom=474
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: try it
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then edit script of me
  if menuBar("©1988SDrazga") then hide menubar
  else show menubar
end mouseUp



-- part contents for background part 5
----- text -----
MenuBar

-- part contents for background part 6
----- text -----
Have you ever needed to know whether or not the menu bar was showing?  Well this XFCN will tell you exactly that.

This XFCN is ©1988 by Steve Drazga and all rights are reserved.  It may be used in any non-commercial, shareware, or commercial stacks as long as the following conditions are met:

1) Within the credits of the stack the phrase 
"Portions ©1988 Steve Drazga" should be included.

2) Send a copy of your finished stack to me at:
Steve Drazga
AnalytX
Box 388
Southampton, PA  18966

The only compensation I receive will be seeing my efforts utilitized by others.

If you need custom XCMDs/XFCNs, stacks, or HyperCard training for your organization contact Steve Drazga at AnalytX (215) 464-3733.

-- part contents for background part 7
----- text -----
Syntax:

MenuBar("©1988SDrazga")

This XFCN will return 'true' if the menubar is showing, or 'false' if it is hidden.


The only parameter that must be passed must is the copyright notice (the © symbol is option-g).

ex: 
if menuBar("©1988SDrazga") then hide menubar 
else show menubar

-- part contents for background part 10
----- text -----
24